home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 October / EnigmA AMIGA RUN 22 (1997)(G.R. Edizioni)(IT)[!][issue 1997-10 & 11][EAR-CD VI].iso / progs / demos / arteffect2.demo / rexx / brushattr.rexx next >
OS/2 REXX Batch file  |  1997-04-11  |  321b  |  20 lines
  1. /**/
  2. options results
  3.  
  4. address 'ArtEffect'
  5.  
  6. entries = ""
  7. do i=128 to 1 by -1
  8.     value = i*2-1
  9.     entries = entries || value
  10.     if i~=1 then entries = entries || ','
  11. end
  12.  
  13. 'brushattr INTENSITY ' entries
  14. if rc~=0 then say rc2
  15. 'brushattr DENSITY ' entries
  16. if rc~=0 then say rc2
  17. 'brushattr ROUGHNESS ' entries
  18. if rc~=0 then say rc2
  19.  
  20.